215 LOCATE 5,15: PRINT "1) New Route - Erase all old data"
220 PRINT TAB(15);"2) View Route Information"
225 PRINT TAB(15);"3) Change Driving Data"
230 PRINT TAB(15);"4) Change Fuel Data"
235 PRINT TAB(15);"5) Begin Route"
240 PRINT TAB(15);"6) Print Route Information"
245 PRINT TAB(15);"7) Exit"
250 LOCATE 15,15: PRINT "Enter number of choice: "
255 A$ = INKEY$: IF A$ = "" THEN 255 ELSE 260
260 IF A$ = "1" THEN 500
265 IF A$ = "2" THEN 1000
270 IF A$ = "3" THEN 1500
275 IF A$ = "4" THEN 2000
280 IF A$ = "5" THEN 2500
285 IF A$ = "6" THEN 3000
290 IF A$ = "7" THEN END
295 GOTO 250
500 'New Route - erase all old data
505 'Erase Driving data
510 AS = 0: HD = 0: AT$ = "": AT = 0: MD = 0
515 OPEN "Driving.dat" FOR OUTPUT AS #1
520 WRITE #1,AS,HD,AT$,MD,AT
525 CLOSE #1
530 'Erase refueling data
535 TC = 0
540 MPG = 0
545 B$ = "":MT = 0
550 OPEN "Refuel.dat" FOR OUTPUT AS #1
555 WRITE #1,TC,MPG,B$,MT
560 CLOSE #1
565 'Erase Starting Point, Destination, and Route
995 GOTO 100
1000 'Load Old Route
1005 CLS
1010 LOCATE 15,15: PRINT "Please wait while information is compiled..."
1015 CHAIN "ShowInfo
1500 'Change Driving Data
1502 AS = 65: HD = 8
1505 CLS
1510 PRINT TAB(25);"Change Driving Data"
1515 LOCATE 5,10: PRINT "Current Data:"
1520 LOCATE 7,15: PRINT "1) Average Speed: ";AS
1525 PRINT TAB(15);"2) Hours Driven per Day: ";HD
1535 LOCATE 15,15: PRINT "Enter number to change, 4 to return to main menu"
1540 A$ = INKEY$: IF A$ = "" THEN 1540 ELSE 1545
1545 IF A$ = "1" THEN 1575
1550 IF A$ = "2" THEN 1600
1560 IF A$ = "4" THEN 1800
1575 'Change Average Speed
1580 LOCATE 23,10: INPUT "What is your average speed";AS
1585 LOCATE 23,10: PRINT " "
1590 GOTO 1515
1600 'Change Hours Driven per Day
1605 LOCATE 23,10: INPUT "How many hours do you drive per day";HD
1610 LOCATE 23,10: PRINT " "
1615 GOTO 1515
1625 AT$ = N
1650 GOTO 1515
1700 'Read in old data
1705 OPEN "i",#1,"Driving.dat"
1710 INPUT #1,AS,HD,AT$,MD,AT
1715 CLOSE #1
1720 RETURN
1800 'Save driving data
1802 GOSUB 1900
1805 OPEN "Driving.dat" FOR OUTPUT AS #1
1810 WRITE #1,AS,HD,AT$,MD,AT
1815 CLOSE #1
1820 GOTO 200
1900 'Calculate new variables
1912 'Miles per day
1915 MD = AS*HD
1917 'Adjust for time zones
1920 AT$ = LEFT$(AT$,1)
1925 IF AT$ = "Y" OR AT$ = "y" THEN AT = 1 ELSE AT = 0
1930 RETURN
2000 'Change Refueling Data
2002 TC = 10: MPG = 30: B$ = "N"
2005 CLS
2010 PRINT TAB(25);"Change Refueling Data"
2015 LOCATE 5,10: PRINT "Current Data:"
2020 LOCATE 7,15: PRINT "1) Tank Capacity: ";TC
2025 PRINT TAB(15);"2) Average MPG: ";MPG
2030 PRINT TAB(15);"3) Include 10% Buffer: ";B$
2035 LOCATE 15,15: PRINT "Enter number to change, 4 to return to main menu"
2040 A$ = INKEY$: IF A$ = "" THEN 2040 ELSE 2045
2045 IF A$ = "1" THEN 2075
2050 IF A$ = "2" THEN 2100
2055 IF A$ = "3" THEN 2125
2060 IF A$ = "4" THEN 2300
2075 'Change Tank Capacity
2080 LOCATE 23,10: INPUT "What is your tank capacity";TC
2085 LOCATE 23,10: PRINT " "
2090 GOTO 2015
2100 'Change MPG
2105 LOCATE 23,10: INPUT "What is your car's average MPG";MPG
2110 LOCATE 23,10: PRINT " "
2115 GOTO 2015
2125 'Change Add 10% Buffer
2130 LOCATE 22,10: PRINT "Note: This will subtract 10% from your distance on a tank of gas"
2135 LOCATE 23,10: INPUT "Add a 10% Buffer to Tank Capacity";B$
2140 LOCATE 22,10: PRINT " "
2145 LOCATE 23,10: PRINT " "
2150 GOTO 2015
2200 'Read in old data
2205 OPEN "i",#1,"Refuel.dat"
2210 INPUT #1,TC,MPG,B$,MT
2215 CLOSE #1
2220 RETURN
2300 'Save refueling data
2302 GOSUB 2400
2305 OPEN "Refuel.dat" FOR OUTPUT AS #1
2310 WRITE #1,TC,MPG,B$,MT
2315 CLOSE #1
2320 GOTO 200
2400 'Calculate new variables
2402 'Miles per tank
2404 B$ = LEFT$(B$,1)
2405 IF B$ = "Y" OR B$ = "y" THEN B = 0.1 ELSE B = 0
2410 MT = TC*MPG-((TC*MPG)*B)
2415 RETURN
2500 'Begin Route
2502 CLS
2505 IF AS = 0 OR TC = 0 THEN LOCATE 15,5: PRINT "You must first file driving and refueling information from main menu": A$ = INKEY$: IF A$ = "" THEN 2505 ELSE 200
2510 CLOSE
2515 LOCATE 15,15: PRINT "Please wait..."
2520 CHAIN "discity
3000 'Print Route Information
3005 CLS
3010 LOCATE 10,15: PRINT "Please wait while information is compiled..."
3020 CHAIN "prtinfo
5000 CLS
5005 LOCATE 2,5: PRINT "This is a ShareWare Program..."
5010 PRINT
5015 PRINT "If you like this program, please register it with the author. SUPPORT SHAREWARE"
5020 PRINT "There are two options for registration. One, if you find this program to be"
5025 PRINT "sufficient for your needs, send 10$ US for registration of your copy, which"
5030 PRINT "entitles you to the latest version of PitStop America, and the heartfelt thanks"
5035 PRINT "and respect of the author. The second option is to send 25$ to the author, for"
5040 PRINT "which you will receive the full PitStop America program, which offers over 2000"
5045 PRINT "cities to start/stop in, and supports all US Highways as well as interstates, &"
5050 PRINT "you will receive the heartfelt thanks and respect of the author. With either"
5055 PRINT "option, you will get a price break on future versions/upgrades and any documen-"
5060 PRINT "tation which the program might require. (Registered versions also get rid of"
5062 PRINT "this annoying screen.)"
5065 LOCATE 17,25: PRINT "M. Broughton Boone"
5070 PRINT TAB(25); "PO Box 253"
5075 PRINT TAB(25); "Bayview, ID 83803"
5080 LOCATE 23,20: PRINT "Hit any key to continue..."
(.txt)